home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / base.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  546b  |  26 lines
  1. 10 POKE53272,21:POKE53280,1:POKE53281,1:REM       C64 MODS 1983 BY WIM
  2. 100 PRINT"[144]NUMBER CONVERTER FROM BASE B1 TO B2
  3. 105 [153]"IF B1 OR B2 = 0 IE,, OLD VALUE ASSUMED
  4. 120 C$="0123456789ABCDEF
  5. 125 [153]:[153]"NUMBER,BASE,NEWBASE";
  6. 130 [133] D$,X1,X2
  7. 140 [139]X1[179][177]0[167]B1[178]X1
  8. 150 [139]X2[179][177]0[167]B2[178]X2
  9. 160 [153],,,,D$" BASE"B1;"  =  ";
  10. 170 N[178]0
  11. 180 [129] I[178]1 [164] [195](D$)
  12. 190 A$[178][202](D$,I,1)
  13. 200 [129] J[178]1 [164] B1
  14. 210 [139] A$ [178] [202](C$,J,1) [137] 240
  15. 220 [130] J
  16. 230 [153]"DIGIT NOT RECOGNIZED":[137]125
  17. 240 N[178]N[172]B1[170]J[171]1
  18. 250 [130] I
  19. 260 D$[178]""
  20. 270 K[178][181](N[173]B2)
  21. 280 I[178]N[171]B2[172]K
  22. 300 D$[178][202](C$,I[170]1,1)[170]D$ : N[178]K
  23. 320 [139] N[177]0 [137] 270
  24. 330 [153] D$" BASE"B2
  25. 340 [137] 125
  26.